home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aaq.d64 / k.dat < prev    next >
Text File  |  2007-02-28  |  2KB  |  130 lines
  1. 8000 FOR J:=1 TO 4 DO //K1
  2. 8010  PENUP 
  3. 8020  FORWARD 2
  4. 8030  PENDOWN 
  5. 8040  FORWARD 9
  6. 8050  PENUP 
  7. 8060  FORWARD 8
  8. 8070  PENDOWN 
  9. 8080  FORWARD 7
  10. 8090  PENUP 
  11. 8100  BACK 26
  12. 8110  LEFT 90
  13. 8120  FORWARD 1
  14. 8130  RIGHT 90
  15. 8140 ENDFOR J
  16. 8150 //
  17. 8160 FOR J:=1 TO 6 DO // 2
  18. 8170  PENDOWN 
  19. 8180  FORWARD 11
  20. 8190  PENUP 
  21. 8200  FORWARD 8
  22. 8210  PENDOWN 
  23. 8220  FORWARD 9
  24. 8230  PENUP 
  25. 8240  BACK 28
  26. 8250  LEFT 90
  27. 8260  FORWARD 1
  28. 8270  RIGHT 90
  29. 8280 ENDFOR J
  30. 8290 //
  31. 8300 FOR J:=1 TO 3 DO // 3
  32. 8310  PENDOWN 
  33. 8320  FORWARD 11
  34. 8330  PENUP 
  35. 8340  FORWARD 6
  36. 8350  PENDOWN 
  37. 8360  FORWARD 9
  38. 8370  PENUP 
  39. 8380  BACK 26
  40. 8390  LEFT 90
  41. 8400  FORWARD 1
  42. 8410  RIGHT 90
  43. 8420 ENDFOR J
  44. 8430 //
  45. 8440 FOR J:=1 TO 3 DO // 4
  46. 8450  PENDOWN 
  47. 8460  FORWARD 11
  48. 8470  PENUP 
  49. 8480  FORWARD 4
  50. 8490  PENDOWN 
  51. 8500  FORWARD 9
  52. 8510  PENUP 
  53. 8520  BACK 24
  54. 8530  LEFT 90
  55. 8540  FORWARD 1
  56. 8550  RIGHT 90
  57. 8560 ENDFOR J
  58. 8570 //
  59. 8580 FOR J:=1 TO 6 DO // 5
  60. 8590  PENDOWN 
  61. 8600  FORWARD 22
  62. 8610  PENUP 
  63. 8620  BACK 22
  64. 8630  LEFT 90
  65. 8640  FORWARD 1
  66. 8650  RIGHT 90
  67. 8660 ENDFOR J
  68. 8670 //
  69. 8680 FOR J:=1 TO 3 DO // 6
  70. 8690  PENDOWN 
  71. 8700  FORWARD 11
  72. 8710  PENUP 
  73. 8720  FORWARD 4
  74. 8730  PENDOWN 
  75. 8740  FORWARD 9
  76. 8750  PENUP 
  77. 8760  BACK 24
  78. 8770  LEFT 90
  79. 8780  FORWARD 1
  80. 8790  RIGHT 90
  81. 8800 ENDFOR J
  82. 8810 //
  83. 8820 FOR J:=1 TO 3 DO // 7
  84. 8830  PENUP 
  85. 8840  FORWARD 2
  86. 8850  PENDOWN 
  87. 8860  FORWARD 9
  88. 8870  PENUP 
  89. 8880  FORWARD 6
  90. 8890  PENDOWN 
  91. 8900  FORWARD 9
  92. 8910  PENUP 
  93. 8920  BACK 26
  94. 8930  LEFT 90
  95. 8940  FORWARD 1
  96. 8950  RIGHT 90
  97. 8960 ENDFOR J
  98. 8970 //
  99. 8980 FOR J:=1 TO 10 DO // 8
  100. 8990  PENUP 
  101. 9000  FORWARD 2
  102. 9010  PENDOWN 
  103. 9020  FORWARD 9
  104. 9030  PENUP 
  105. 9040  FORWARD 8
  106. 9050  PENDOWN 
  107. 9060  FORWARD 9
  108. 9070  PENUP 
  109. 9080  BACK 28
  110. 9090  LEFT 90
  111. 9100  FORWARD 1
  112. 9110  RIGHT 90
  113. 9120 ENDFOR J
  114. 9130 //
  115. 9140 FOR J:=1 TO 2 DO // 9
  116. 9150  PENUP 
  117. 9160  FORWARD 4
  118. 9170  PENDOWN 
  119. 9180  FORWARD 5
  120. 9190  PENUP 
  121. 9200  FORWARD 12
  122. 9210  PENDOWN 
  123. 9220  FORWARD 5
  124. 9230  PENUP 
  125. 9240  BACK 26
  126. 9250  LEFT 90
  127. 9260  FORWARD 1
  128. 9270  RIGHT 90
  129. 9280 ENDFOR J
  130.